home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / bytes 84 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  77 lines
  1. 7 :
  2. 8 :rem setup for dirtovar v2
  3. 9 :
  4. 10 poke52,141:poke56,141:clr
  5. 20 dimty$(151),na$(151),le$(151)
  6. 30 dv=peek(186):ifdv<8thendv=8
  7. 40 sys57812"dirtovar v2",8,0:poke780,0:    poke781,0:poke782,141:sys65493
  8. 47 :
  9. 48 :rem  dir print program
  10. 49 :
  11. 50 poke53281,0:poke53280,0:print"[147]":sp$="                  "
  12. 60 gosub60000:ifpeek(36096)=76then70
  13. 70 print"[159]  [199]et your printer ready and insert the"
  14. 80 print"  disk whose directory you want printed."
  15. 90 print"  [208]ress [210][197][212][213][210][206][159] to print, [209][159] to quit."
  16. 100 geta$:ifa$<>chr$(13)anda$<>"q"then100
  17. 110 ifa$="q"then500
  18. 117 :
  19. 118 :rem check for printer on
  20. 119 :
  21. 120 open4,4,7:close4:ifst=0then150
  22. 130 poke214,10:print:print"[158]     [201] said get your printer ready.[159]"
  23. 140 fort=1to2000:next:poke781,12:sys59903:goto100
  24. 147 :
  25. 148 :rem  dirtovar check for 1581
  26. 149 :
  27. 150 open15,dv,15,"i":poke36124,49:poke36125,56:close5:open5,dv,5,"#"
  28. 160 print#15,"u1";5;0;18;0:get#5,jj$,jj$,jj$:close15:close5
  29. 170 dl=664:ifjj$<>"a"thenpoke36124,52:poke36125,48:dl=3160
  30. 180 sys36096,dv
  31. 187 :
  32. 188 :rem  print directory
  33. 189 :
  34. 190 open4,4
  35. 200 print#4,"     "na$(0)chr$(13)
  36. 210 i=1:bl=0
  37. 220 ifna$(i)=""then330
  38. 230 print#4," "le$(i);
  39. 240 print#4,left$(sp$,4-len(le$(i)))na$(i);
  40. 250 print#4,left$(sp$,18-len(na$(i)))ty$(i);
  41. 260 print#4,"  "le$(i+1);
  42. 270 print#4,left$(sp$,4-len(le$(i+1)))na$(i+1);
  43. 280 print#4,left$(sp$,18-len(na$(i+1)))ty$(i+1);
  44. 290 print#4,"  "le$(i+2);
  45. 300 print#4,left$(sp$,4-len(le$(i+2)))na$(i+2);
  46. 310 print#4,left$(sp$,18-len(na$(i+2)))ty$(i+2)
  47. 320 i=i+3:goto220
  48. 330 bl=0:forj=1toi:bl=bl+val(le$(j)):next:print#4:print#4,dl-bl"blocks free"
  49. 340 print#4:close4
  50. 350 print"[147]":goto70
  51. 497 :
  52. 498 :rem  return to loadstar
  53. 499 :
  54. 500 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  55. 510 ifer%<>63thenend
  56. 520 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  57. 530 print"run"
  58. 540 poke631,13:poke632,13:poke198,2:end
  59. 9997 :
  60. 9998 :rem  scratch and save
  61. 9999 :
  62. 10000 open15,8,15,"s0:bytes 84":close15:save"bytes 84",8:end
  63. 59997 :
  64. 59998 :rem  ubiquitous copyright box
  65. 59999 :
  66. 60000 b9$="                                      "
  67. 60010 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  68. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  69. 60030 b9$(0)="[196] [201] [210] [197] [195] [212] [207] [210] [217]    [208] [210] [201] [206] [212]"
  70. 60040 b9$(1)="by [198]ender [212]ucker"
  71. 60050 b9$(2)="[214]1  ([195]) 1991 by [211]oftdisk, [201]nc."
  72. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #84"
  73. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  74. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  75. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  76. 60099 return
  77.